home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / misc / ftransd_.lha / FTransD_2.1a / ARexx-Scripts / FTGed.ged < prev    next >
Text File  |  1995-07-15  |  5KB  |  118 lines
  1. /* $VER: FTGed.ged 1.1 (06.06.95), ©1995 Rainer Hess
  2.  *
  3.  * V1.1 ARexx-Port-Name für FTrans V1.7 geändert. Anpassung für
  4.  *      LockGUI/UnlockGUI.
  5.  *
  6.  * ARexx-Script basierend auf das ARexx-Script "empty.ged" von
  7.  * Dietmar Eilert, dem Autor des Texteditors GoldEd.
  8.  *
  9.  * Getestet mit der unregistrierten GoldEd-Version Release 2 (2.0.1)
  10.  * und der unregistrierten Release 2 (2.2.0).
  11.  *
  12.  * ARexx-Script, daß das Wort unter dem Cursor von GoldEd an FTrans
  13.  * weiterleitet und das Ergebnis der Übersetzung in einem Requester
  14.  * in GoldEd anzeigt.
  15.  *
  16.  * Beispiel zur Installation des ARexx-Scripts auf die Funktionstaste F9:
  17.  * ----------------------------------------------------------------------
  18.  * Es wird vorrausgesetzt, daß die "normale" Konfiguration von GoldEd
  19.  * verwendet wird und die Menüeinträge nicht vom Benutzer verändert
  20.  * wurden. So, nun aber zur installation...
  21.  *
  22.  *  1.) Diese Script "FTGed.ged" nach GoldEd:ARexx kopieren.
  23.  *  2.) GoldEd aufrufen.
  24.  *  3.) Im Menupunkt "Konfig" den Eintrag "Tastatur..." auswählen.
  25.  *  4.) Im nun hoffentlich geöffneten "Kommandorequester" von GoldEd
  26.  *      die Tastatureinträge unten rollen bis "F09" erscheint.
  27.  *  5.) Den Eintrag "F09" doppelklicken, nun sollte sich das
  28.  *      "Kommandorequester" von GoldEd öffnen.
  29.  *  6.) "Löschen" betätigen um "TABS SOLID TOGGLE" zu entfernen.
  30.  *  7.) "Neu" betätigen.
  31.  *  8.) Dann beim Auswahlschalter "ARexx" anwählen ("intern" sollte dann
  32.  *      automatisch deaktiviert werden).
  33.  *  9.) Das Auswahlrequester öffnen, indem man auf das Symbol (rechts
  34.  *      neben neu) klickt.
  35.  * 10.) Im Auswahlrequester den Pfad für ARexx (GoldEd:ARexx) anklicken.
  36.  *      Unter den Sctipts sollte nun auch FTGed.ged zu finden sein,
  37.  *      diesen Eintrag anklicken. Das Requester mit der Auswahl von "Ok"
  38.  *      beenden.
  39.  * 11.) Den "Komandorequester" nun auch mit "Ok" beenden.
  40.  * 12.) Ebenso auch den "Tastaturrequester" mit "Ok" bestätigen.
  41.  * 13.) Soll dieser Eintrag für die Funktionstaste F9 dauerhaft
  42.  *      gespeichert werden, so ist im Menüpunt "Konfig" der Eintrag
  43.  *      "Sichern..." anzuwählen. Im "Sichernrequester" sollte
  44.  *      als Pfad schon "GoldED:Config" und "GoldED.prefs" eingetragen
  45.  *      sein. Das Requester ist in diesem Fall nur mit "Ok" zu
  46.  *      bestätigen.
  47.  * 14.) Nun nur noch einen (englischen) Text einladen, FTrans starten
  48.  *      und über einem Wort die Funktinstatse F9 betätigen. GoldEd sollte
  49.  *      nun einem das übersetze Wort anzeigen.
  50.  *
  51.  * ACHTUNG! Es ist anzumerken, daß der ARexx-Server gestartet sein muss.
  52.  * Notfalls ist "RexxMast" im CLI zu starten oder das "RexxMast" Ikon
  53.  * anklicken. RexxMast sollte in der Schublade SYS:System zu finden sein.
  54.  * Soll das Lernfenster im Autolernmodus auf dem Bildschirm von GoldEd
  55.  * geöffnet werden, so sollte bei FTrans im Lernmenü bei "Bildschirm..."
  56.  * "- Aktiven Public-Screen -" gesetzt sein (ab FTrans 1.3 möglich), oder
  57.  * im ARexx-Script die Publicscreens direkt setzen (siehe hierzu auch das
  58.  * Script FTCed.ced).
  59.  */
  60.  
  61. OPTIONS RESULTS                             /* enable return codes     */
  62.  
  63. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  64.     address 'GOLDED.1'
  65.  
  66. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  67. OPTIONS FAILAT  6                           /* ignore warnings         */
  68. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  69.  
  70. /* ------- BEGINN KOMUNIKATIONSCODE FÜR FTRANS UND GOLDED  ----------- */
  71.  
  72. /* Anfrage ob FTrans aktiv ist */
  73.  
  74. IF ~show( 'p', 'FTRANS.1' ) THEN do
  75.   'REQUEST BODY="Oops! FTrans ist nicht aktiv. | Bitte FTrans aktivieren..."'
  76. end
  77. else do
  78.  
  79.   /* Ja, FTrans ist aktiv, dann fangen wir an... */
  80.  
  81.   'QUERY WORD VAR=dummy'         /* Wort unter dem Cursor bei GoldEd abfragen. */
  82.   wort = result                  /* Das Ergebnis (Wort) merken */
  83.  
  84.   /* Nun setzen wir unsere Port auf FTrans und komunizieren... */
  85.  
  86.   address 'FTRANS.1'             /* FTrans Arexx-Port setzen. */
  87.   LOCKGUI                        /* GUI gegen Zugriff schützen */
  88.   WORTARG wort                   /* Das Wort in "wort" übersetzen. */
  89.   uebersetzung = result          /* Unser Ergebnis der Übersetzung merken. */
  90.   UNLOCKGUI                      /* Und GUI wieder frei geben */
  91.  
  92.   address       /* Nun schalten wir den Port wieder auf die GoldEd-Adresse */
  93.  
  94.   /* Einen Text für das Requester zurecht setzen... */
  95.  
  96.   ausgabe = 'Das englische Wort : ' || wort || '|bedeutet in deutsch: ' || uebersetzung
  97.  
  98.   /* War die Übersetzung positiv oder negativ? */
  99.  
  100.   if((right(uebersetzung, 1) == '}' | left(uebersetzung, 1) == '{')) then
  101.     ausgabe = 'Das Wort ' || uebersetzung || ' kommt im|aktuellen Wörterbuch nicht vor!'
  102.  
  103.   /* Nun rufen wir das Requester in GoldEd auf */
  104.  
  105.   'REQUEST TITLE="FTrans/GoldEd-Info..." BODY="' || ausgabe || '" BUTTON=Weiter'
  106.  
  107. end
  108. /* ---------------------- END OF YOUR STANDART GOLDED-CODE --------------------- */
  109.  
  110. 'UNLOCK'                /* VERY important:   unlock GUI */
  111. EXIT
  112.  
  113. SYNTAX:
  114.  
  115. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  116. 'UNLOCK'
  117. EXIT
  118.